home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #14
/
Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO
/
prog_bas
/
basicos2.zip
/
SCROLL.BAS
< prev
next >
Wrap
BASIC Source File
|
1996-02-11
|
993b
|
28 lines
0 LINESKIP =4
5 PAGESIZE =20
10 dim SCROLL$[400 ]
11 rem *
12 rem *
15 rem ___LOAD_MORTGAGE_PROGRAM_INTO_STRING_ARRAY______
16 rem *
17 rem *
20 open "mortgage.bas" for input as #1
30 for TOTAL =0 to 400 :rem __400_LINES_MAX___
35 if eof (#1 )=1 then goto 100
40 input #1 ,SCROLL$[TOTAL ] :next TOTAL
100 close #1 :cls
101 cursor (0 ,1 ):print "Scrolling down to the BOTTOM of the array"
102 for START =0 to TOTAL -PAGESIZE step LINESKIP :gosub 120 :next START
103 cursor (0 ,1 ):print "Scrolling up to the TOP of the array! "
104 for START =TOTAL -PAGESIZE to 0 step -1 *LINESKIP :gosub 120 :next START
105 cursor (0 ,25 ):print "Done Scrolling -- Check out the source code" :end
110 rem *
111 rem *
112 rem ___PAINT_SCREEN_STARTING_AT_LINE_NUMBER_IN_START__
113 rem *
114 rem *
120 for J =START to START +PAGESIZE
130 cursor (0 ,J -START +3 )
140 print left$ (SCROLL$[J ] ,80 );spc (80 -len (left$ (SCROLL$[J ] ,80 )));
150 next J :return